From: Eli Zaretskii <eliz@gnu.org>
Date: Sun, 28 Sep 2003 08:54:34 +0000 (+0000)
Subject: (smtpmail-via-smtp): Don't insert a space
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~25412
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=60a60c3f53365ea45e60480e5f33594f7b1051d5;p=emacs.git

(smtpmail-via-smtp): Don't insert a space
between "MAIL FROM:" and "RCPT TO:" and the following address.
---

diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el
index 35c01201b3c..c9bfce7f400 100644
--- a/lisp/mail/smtpmail.el
+++ b/lisp/mail/smtpmail.el
@@ -671,7 +671,7 @@ This is relative to `smtpmail-queue-dir'.")
 			  (>= (car response-code) 400))
 		      (throw 'done nil))))
 
-	    ;; MAIL FROM: <sender>
+	    ;; MAIL FROM:<sender>
 	    (let ((size-part
 		   (if (or (member 'size supported-extensions)
 			   (assoc 'size supported-extensions))
@@ -706,7 +706,7 @@ This is relative to `smtpmail-queue-dir'.")
 			 "")
 		     "")))
 ;	      (smtpmail-send-command process (format "MAIL FROM:%s@%s" (user-login-name) (smtpmail-fqdn)))
-	      (smtpmail-send-command process (format "MAIL FROM: <%s>%s%s"
+	      (smtpmail-send-command process (format "MAIL FROM:<%s>%s%s"
                                                      envelope-from
 						     size-part
 						     body-part))
@@ -717,10 +717,10 @@ This is relative to `smtpmail-queue-dir'.")
 		  (throw 'done nil)
 		))
 
-	    ;; RCPT TO: <recipient>
+	    ;; RCPT TO:<recipient>
 	    (let ((n 0))
 	      (while (not (null (nth n recipient)))
-		(smtpmail-send-command process (format "RCPT TO: <%s>" (smtpmail-maybe-append-domain (nth n recipient))))
+		(smtpmail-send-command process (format "RCPT TO:<%s>" (smtpmail-maybe-append-domain (nth n recipient))))
 		(setq n (1+ n))
 
 		(setq response-code (smtpmail-read-response process))